home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / The Treasure Hunt / SHARED.Dxr / 00988_textscript.ls < prev    next >
Encoding:
Text File  |  1994-09-16  |  524 b   |  22 lines
  1. on mouseUp
  2.   global captain, text
  3.   if captain then
  4.     if text = "y" then
  5.       set text to "n"
  6.       set the locV of sprite 36 to 600
  7.       puppetSprite(36, 1)
  8.       updateStage()
  9.     else
  10.       updateStage()
  11.       set the locV of sprite 36 to 435
  12.       set text to "y"
  13.       set the castNum of sprite 36 to the number of cast "texton"
  14.       puppetTransition(23)
  15.       updateStage()
  16.       puppetSprite(36, 0)
  17.     end if
  18.     set the castNum of sprite 46 to the number of cast ("text" & text)
  19.     updateStage()
  20.   end if
  21. end
  22.